HI 5 10/1/67 
NRCL., RTS, RTC, RTW, ERCL 
IRM,IRER 
ICOUNT 



1 



2266B 

- 1 COUNT 



OF RAD COMMANDS IN LIST 



RAD I DENT 

ENTRY 

ENTRY 

ENTRY 
TRRQ BES 4 

DATA -1,-1,-1, 
BRRQ EQU * ' 
SFRQLST DATA *+ 1 

RPT NRRQ-1 

DATA *+ 5 

BSS A 

ENDR 

DATA - 1 

BSS A 
ALRC ALR 
ALRJ BRU IRM2 
RADJMP BRU IRSAVE 
RADRRF EOD* 222 6B 
RADWRF EOD* 
NRCL DATA 

ERCL ZRO 
SIRCL ZRO 
SIRCL1 ZRO 

ICOUNT DATA -1 COUNT AFTER COMPLETION OF CURRENT RAD TRANSFER 
IRPM1 ZRO STORAGE FOR RAD ADDRESS 

IRPM3 ZRO STORAGE FOR WORD COUNT/MEMORY ADDRESS 
SRADTRY ZRO A TRY-AGAIN COUNTDOWN 
IRSA ZRO SAVE (A) 
IRSB ZRO ^ SAVE (B) 

IRSX ZRO Q" SAVE (X) . / . 
IRT DATA RSYBI,IRS,RD2KI 

*ZERO WORD COUNT AND EARLY WORD COUNT INTERRUPT ROUTINE 
IRM ZRO, RSR, BRU.*-1, RSE, BRU IRIX 

IRM1 ALRi POT IRPM1 
IRM2 CATE, BRU *- 1 

CETE, BRU IRIX 
IRMX EOD* 10000B 
IRPM2 EOD - 

POT IRPM3 
IRSAVE BRM RREGSV, LDX IRCL1 

IRUNLK LDA IRCL1, SUB = 1,' XMA FRGLST, STA* FRQLST 
> BRM CPNO, XXAj SKR RMC2, NOP 

COPY AX,XB,, LDA 3*2* ETR = 3, COPY BA,AX,XB, BRM* IRT,2 



I DA WAY 
IRIX 



IRGOMO 
CPNO 



LDA 
STA 
LDA 
BRM 
MIN 
MIN 
LDX 
BRM 
ZRO 
LDA 
ETR 



ICOUNT 

NRCL* SKN ICOUNT! BRM RADADV 

IRSAl LDB IRSB, LDX IRSX* EIRJ BRI IRM 

RREGSV, LDX IRCL+1, MIN RADTERl SKN 3,2 

RADRERJ SKR RADTRY, BRU IRGOMO, MIN RTUERR 

RDTUER, SKN 3*25 MIN RDRUER 

IRSX, RSRJ BRU *-l, ALR, POT IRPM1, BRU IRMX 

RRETRY, BRU IDAWAY 



1,2, RSH 9} EOR 
= 37B, BRR CPNO 



2,2* ETR = 37B, EOR 2> 2 J RSH 2 



RREGSV ZRO; STA IRSA; STB IRSB; SIX IRSX; 
*SETS UP NEXT COMMAND IF THERE IS ONE ~ 
RADADV ZRO; LDA =NRTRY-1; STA RADTRY 
ADV2 SKR I COUNT; BRU ADV1 

LDA ALRJ; STA IR'M'l 

LDA IRCL; STA IRCL1; 
ADV1 LDA* IRCL; ADD = 40B; 

LDA 3,2; SKA =15 BRU 

BRM CPNO; COPY AX, XB; 



BRR RREGSV 



LDA RADJMP; STA IRtMXl BRR RADADV 
BRM FRRC; CAX 
*+2; BRU ADV3 
LDA* RMT,2; XXB 



ADV2 

BRR RADADV 



SKA = BIT4+BIT5; BRU ADV3 

COPY XA* BX; SKR RMC*2; NOP 

SUB = 1; XMA FRQLST; STA* FRQLST 

SKR SWWCTR; NOP; SKR WIPFL6J NOP; BRU 
ADV3 CXA; XMA IRCL; STA IRCLl; BRM RADMVE; 
FRRC ZRO; LRSH 4; ETR =2 ~ , 
FRRCi SUB = 4; CAX 

SKN BRRQ,2; BRU FRRC2; BRX *-2 

CXA; BRU FRRCI 
FRRC2 LDA TRRQ*2; SKE BRRQ*2; BRU *+3 
. LDB = -1; STB 8RRQ*2 

LDA* TRRQ*2; XMA TRRQ*2; ADD =1; BRR FRRC 
*PUT RAD COMMANDS. IN THE INTERRUPT ROUTINE 
RADMVE ZRO; LDA 0,2 ; STA IRPM1 

LDA 2*2, STA IRPM2; LDA 1,25 STA IRPM3 

LDA ALRC; STA IRM1 

LDA RADWRF; SKN 3*2;\LDA RADRRF; STA IRMX; 
SRRETRY ZRO; RSR; BRU *-l; ALR; POT' 0*2 

LDA 2*2* STA *+2* EOD* , 1 00000B; EXU 2*2 

POT 1,2; SKN 3,2; BRU *+3; WRF; BRR RRETRY; 
*END OF RECORD INTERRUPT ROUTINE 
IRER ZRO; SKN NRCL; GATE; BRU IRER1; RSE; BRU IRERX 

; CETE; BRU. IRERX 
IRER1 EIR; BRI IRER 

IRERX XMA IRERi STA IRM; LDA IRER; BRU IRIX 
♦INSERT WRITE COMMAND IN RAD COMMAND LIST 
RTW ZRO; MRG DCWBIT; BRM RTC; BRR RTW 
♦INSERT COMMAND IN RAD COMMAND LIST 
RTC~ ZRO; STA RTCSl 

LDA =BIT0; SKA FRQLST! BRU *- 1 

DIR; LDA* FRQLST,' EIR; XMA FRQLST; ADD 

CBA; LRSH 6, SKG =377778; BRU *+2; BRM 

LDA RTCSl , ETR ADMSK; RSH 14, CXA; ETR 

LDX ERCL; STA 1,2, LSH 19; LDA RTCSl; 

CBX, RSH 14; CXB; LSH 5, MRG =IOSDEC; 

BRU RTCFIX 
RTCBAK LDX ERCL, STA 2,2, STB 3,2; LDA RTCSl I 

COPY XB,AX; MIN RMC2, BRR RTC 

CLBJ MRG X43 BRU RTCBAK 



BRR RADMVE 



RRF; BRR RRETRY 



= 1; STA ERCL 
RCVR; STA* ERCL 
=77777Bl LCY 14 ' 

ETR =140000B 

LDB X4; SKN RTCSl 

RSH ,1U ETR =37B 



RTCFIX 

RTCSl 

SIRTC ZRO; LDA 0,2; LRSH Ai ETR -2; SKN 3*2; BRU 
MRG =1; EAX -1,2; CXB; SUB =4; COPY AX,BA 
SKN BRRQ,2; BRU *+3; STA TRRQ,2; BRU *+2 
STA* BRRQ,2; STA BRRQ,2; EIR; BRR IRTC 

SIRTCT ZRO; LDA 0,2; LRSH 4; ETR =2; EAX -1,2 



*+2 



CXBJ SUB =41 COPY AX,BAl SKN BRRQ*2l BRU IRTCTl 
STA TRRQ,2i STA BRRQ#2J BRU IRTCT2 

IRTCTl XMA TRRG,2* STA* TRRQ,2 

1RTCT2 EIRf BRR IRTCT 



*FIRE 


UP THE RAD AND START DATA TRANSFER 


RTS 


ZRO* DIRi SKN NRCLl BRU RTSl 




EIR 




ALRSl PIN RT521 LDA RTS2 - 




ETR =37B* SKG =3'6B* SK G =34Bl BRU RTSS 




. LDA RTS2I ETR = 40Bj EO.R = 408,5 STA RTS2 




DIRJ BRM RTSSJ BRU RTS5 


RTS8 


LDA RTS2I ADD = 11 ETR = 40Bs MRG =36Bl 




LDA RTS3* STA 656* RSR* BRU *- 1 




DIR ■' 




ALR* POT RTS2J EOD* 22266 




EOD 16200BJ POT RTS4 . 


RTS 5 


MIN NRCLi MIN ■ I COUNT- 




EIR* BRR RTS 


RTS1 


SKN I COUNTS BRU RTS .5 




LDA* IRCL* ADD = 40B* BRM FRRC 




CAX* STA IRCLJ BRM RADMVE*' BRU RTSS 


RTS2 


ZRO 


RTS 3 


BRM RTSC 


RTS4 


1 ZRO* RTS6 


RTS 6 


ZRO 


RTS7 


BRM IRER 


RTSC 


ZRO* BRM RREGSVJ LDA RTS7* STA 65B 




BRM RTSS 




LDA IRSAj LDB IRSBj LDX IRSX* EIRj'BRJ 


RTSS 


ZRO 




LDA RTS2* BRM FRRCl STA.IRCL 




CAX* BRM RRETRYJ, BRM RADADV 




BRR RTSS 




END 



STA RTS2 



RTSC 



